			ZZRANK


Michael Lloyd (http://www.hsu.edu/faculty/lloydm/ti/prgmtabl.html)
Henderson State University

HISTORY
1.0 December 1997
1.1 August 2015 - updated file to .8xp

DESCRIPTION
Used as a subroutine for the nonparametric tests.  The ranks are
averaged over the blocks where the data is constant.

VARIABLES USED
I,J,K = counters
N = size of list TEMP
list TEMP = ordered data
list RANK = ranks

PROGRAM LISTING
1\->\I
While I<N
I+1\->\J
If \L\TEMP(I)=\L\TEMP(I+1)
Then
I\->\J
Lbl A:J+1\->\J
If J>N:Goto B
If \L\TEMP(J)\!=\\L\TEMP(I)
Goto B:Goto A
Lbl B
(\L\RANK(I)+\L\RANK(J-1))/2
For(K,I,J-1):Ans\->\\L\RANK(K):End
End
J\->\I
End
